home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 8 / Tiger_Disk_008_19xx_Tiger-Crew-Disk_de_Side_B.d64 / +++ schluss +++ (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  58 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 print"[152]              [213][195][195][195][195][195][195][195][195][195][195][201]
  3. 30 [153]"              peekdeftoandposnewor^newposandtoprint#peek
  4. 40 print"              [194]* lukian *[146][152][194]
  5. 50 [153]"              peektab(tab(tab(tab(tab(tab(tab(tab(tab(tab(peek
  6. 60 print"              [194][151] [223][169][223]..[169][223][169] [152][194]
  7. 70 [153]"              peekpoke  (NULL)(NULL)(NULL)(NULL)(NULL)step  print#peek
  8. 80 print"              [194][151]    )(    [152][194]
  9. 90 [153]"              peekpoke          print#peek
  10. 95 print"              [202][195][184][184][184][184][184][184][184][184][146][195][203]
  11. 97 [153]"print#                (NULL)(NULL)(NULL).logcos:(NULL) wait"
  12. 100 [153]"print#            pospoke*************rndprint#pos
  13. 110 print"[152]            [207]   [151][162][162][162][162][162][162][162][162]   [152][208]
  14. 120 [153]"print#            usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  15. 122 print"                   [170][180]"
  16. 125 print"                   [223][169]"
  17. 130 print"                 [151] [162][162][162][162]  "
  18. 131 print"                 [173][183][183][183][183][189]"
  19. 140 poke198,1:wait198,2:geta$
  20. 145 if a$=chr$(160)then150
  21. 150 poke53280,14:poke53281,0:
  22. 160 s=54272:pokes+24,15:pokes,215:pokes+1,50:pokes+5,15:pokes+6,22
  23. 165 pokes+7,124:pokes+8,110:pokes+12,33:poke13,220
  24. 170 print"[147]":v=53248:pokev+21,29
  25. 175 fors1=12288to12350:readq1:pokes1,q1:next
  26. 180 fors2=12416to12478:readq2:pokes2,q2:next
  27. 190 pokev+39,3:pokev+1,129:
  28. 192 fora=1to15:printchr$(147):
  29. 194 printtab(120)"[156]                                       "
  30. 195 print" [156]   [146]  ** macht's gut, freunde!! **[156]     "
  31. 196 print" [156]                                      "
  32. 197 for b=0to20step-21:printchr$(147):poke191,1:print" "
  33. 199 nextb, a:gosub 200
  34. 200 p=191:
  35. 205 forx=1to421step15:
  36. 215 rx=int(x/256):lx=x-rx*256
  37. 220 pokev,lx:pokev+16,rx
  38. 225 ifp=191then gosub330
  39. 230 ifp=192then gosub350
  40. 232 ifp=193 then gosub355:
  41. 235 poke2040,p:fort =0to1 :next:ift >1 thenprintchr$(144):
  42. 240 p=p+1:ifp>193thenp=191
  43. 242 for y=0to250step-5:pokev+23,29:pokev+29,29:pokev+8,y:pokev+4,y:poke53281,0
  44. 243 pokev+2,y:pokev+16,y:pokev+33,y: nexty
  45. 245 next
  46. 250 print"":goto400
  47. 255 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,0,0,0
  48. 260 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  49. 265 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  50. 270 data0,0,0,0,0,0,0,0,0
  51. 305 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240
  52. 310 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  53. 315 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  54. 330 pokes+4,129:pokes+4,128:return:
  55. 350 pokes+11,129:pokes+11,128:return
  56. 355 pokes+14,129:pokes+14,128:return
  57. 400 sys58592:poke768,143:new
  58.